gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Edit.asp

    <!--#include file="Head.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'=======================前台图片编辑============================
' FileName: Edit.asp
' DateTime: 2006-05-18
' Script Written By Lyout
' Modified 2006-09-04
'===============================================================

With Netout
	.Load("Comm")
	IF Not .Master Then
		.ShowErr(0)
		Response.End()
	End IF
	
	Dim Action,TitleId,ImageID
	TitleId = Netout.CheckNumeric(Request.QueryString("TitleId"))
	ImageId = Netout.CheckNumeric(Request.QueryString("ImageId"))
	
	Dim PosBeg,PosEnd
	
	Action = Request.QueryString("Action")
	IF Action = "Edit" Then
		MyHtml = Split(Template.Html(0),"||")(1)
		MyHtml = Replace(MyHtml,"{?MainInfo}",PageEdit())
		MyHtml = Replace(MyHtml,"{?MenuInfo}","")
		MyHtml = replace(.TempHtml,"{?CurrentScript}",MyHtml)
		Response.Write(MyHtml)
	ElseIF Action = "Del" Then
		IF ImageID>0 Then
			Set Rs = Conn.Execute("select ImageFile,FileExt from NT_imgbook where ID="&ImageId)
			FilePath = Rs.GetRows()
			Set Rs = Nothing
			For i = 0 To Ubound(FilePath,2)
				Conn.Execute("Delete from Nt_Remark Where ImageId="&ImageID)
				Conn.Execute("Delete from NT_ImgBook where ID="&ImageID)
				
				.DelFile(Config.ImagePath(0)&Replace(FilePath(0,i),".jpg","."&FilePath(1,i)))
				.DelFile(Config.ImagePath(1)&FilePath(0,i))
				.DelFile(Config.ImagePath(2)&FilePath(0,i))
				IF Conn.Execute("Select ID from Nt_ImgBook where titleID="&titleID).eof Then
					Conn.Execute("Delete from Nt_Remark Where titleID="&titleID)
					Conn.Execute("Delete from Nt_title where titleID="&titleID)
				Else
					Conn.Execute("Update Nt_title Set iCount=iCount-1 where titleID="&titleID)
				End IF
			Next
		Else
			IF Not Conn.Execute("Select ID from Nt_ImgBook where titleID="&titleID).eof Then
				Set rs = Conn.Execute("select ID from NT_imgbook where titleID="&titleID)
				ImageId = rs.GetString(,,,",","")
				Set rs = Nothing
				
				Set Rs = Conn.Execute("select ImageFile,FileExt from NT_imgbook where titleID="&titleID)
				FilePath = Rs.GetRows()
				Set Rs = Nothing
			
				For i = 0 to Ubound(FilePath,2)
					.DelFile(Config.ImagePath(0)&Replace(FilePath(0,i),".jpg","."&FilePath(1,i)))
					.DelFile(Config.ImagePath(1)&FilePath(0,i))
					.DelFile(Config.ImagePath(2)&FilePath(0,i))
				next
			End IF
			Conn.Execute("Delete from Nt_Remark Where titleID="&titleID)
			Conn.Execute("Delete from Nt_title where titleID="&titleID)
		End IF
		Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
	End IF
End With
Set Template = Nothing
Set Netout = Nothing

Private Function PageEdit()
	Dim i,m
	
	Netout.Cache = "PageEdit"
	IF Netout.CacheIsEmpty() Then Netout.TempToCache("PageEdit")
	
	Dim templateHtml
	templateHtml = Split(Replace(Netout.vCache,"{?Referer}",Request.ServerVariables("HTTP_REFERER")),"@@")
	
	Dim Rs
	Set Rs = Server.CreateObject("adodb.recordset")
	
	If TitleId>0 Then
		Dim GroupInfo
		
		Rs.Open "Select ClassId,SpecialId,TitleName,ManuName,ImageLocal,Copyright,TitleDesc,AcceptMaitu from NT_title where TitleID="&TitleID,conn,1,1
		GroupInfo = Rs.GetRows()
		Rs.Close
		
		MyHtml = Replace(templateHtml(0),"{?TitleId}",TitleId)
		MyHtml = Replace(MyHtml,"{?ClassOption}",Netout.ClassOption("ClassId",GroupInfo(0,0)))
		MyHtml = Replace(MyHtml,"{?SpecialOption}",Netout.SpecialOption(3,GroupInfo(1,0),240))
		
		GroupInfo(6,0) = Server.HTMLEncode(Netout.HtmlCode(GroupInfo(6,0),False))
		For i = 2 to 7
			MyHtml = Replace(MyHtml,"{?GroupInfo"&i&"}",GroupInfo(i,0)&"")
		Next
	ElseIf ImageId>0 Then
		Dim arrImageInfo
		
		Rs.Open "Select TitleId,ImageInfo,ImageDesc From Nt_ImgBook Where [Id]="&ImageId,Conn,1,1
		arrImageInfo = Rs.GetRows()
		Rs.Close
				
		MyHtml = Replace(templateHtml(2),"{?ImageId}",ImageId)
		MyHtml = Replace(MyHtml,"{?ImageInfo1}",Server.HTMLEncode(Netout.HtmlCode(arrImageInfo(2,0)&"",False)))
	End If
	PageEdit = MyHtml
End Function
%>